home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / sound.bas < prev    next >
BASIC Source File  |  1998-04-07  |  162b  |  11 lines
  1. Rem NoiseMaker
  2. Cls
  3. Print "Hit SPACEBAR to play sound, or Q to quit"
  4. While TRUE
  5. a$ = Inkey$
  6. If a$ = "Q" OR a$="q" Then End
  7. If a$ = " " Then Sound "Whiz"
  8. Wend
  9. End
  10.  
  11.